home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 108
/
Tiger_Disk_108_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
data keys [td]
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
70 lines
59390 poke53280,0:poke53281,0:printchr$(142)"[147]";
59391 print"[146] [153] {$7f}[146] [169] {$7f}[146] [146] [169] {$7f}"
59392 print" [146] [146] [146] [146] [184] [146] [184] [146] "
59393 print" [146] [146] [146] [146] [146] [146] "
59394 print" [146] [146] [146] [146] "
59395 print" [146] [146] [146] [146] [146] [146] "
59396 print" [146][169] [146] [146] [146] [146] "
59397 print" [158] [146] [169][146][169] [146] {$7f}{$7f}[146] [169][146][169] [169] {$7f}[146] [169] {$7f}[146] [146] "
59398 print" [169][146][169] [146] {$7f}{$7f}[169][146][169] [146] [185][146] [146] [185][146] [146] "
59399 print" [146][169] [146] {$7f}{$7f}[146] {$7f} {$7f}[146] {$7f}[146] "
59400 print" {$7f}[146] [146] [146] [146] [146] [146] "
59401 print" [146]{$7f}{$7f}[146] [146] [146] [146] [146] [146] [146] "
59402 print" [146] {$7f}{$7f}[146] [146] [160] [146] {$7f} [146][169] {$7f} [146][169] "
59403 print" UDDDDDDDDDDDDDDDDDDDDDI"
59404 print" B [159] [146]by [146] B"
59405 print" B B"
59406 print" B [159] bruce nevins [146] B"
59407 print" JFFFFFFFFFFFFFFFFFFFFFK"
59408 print" [150]press any key to continue"
59409 poke198,0:wait198,1
59450 poke53280,0:poke53281,12:printchr$(142)"[147]";
59451 print"[146] [151]use normal keys to enter the"
59452 print" first three inputs"
59453 print" UCCCIUCCCIUCCCIUCCCI"
59454 print" B [155]7 [151]BB [155]8 [151]BB [155]9 [151]BB [155]- [151]B [152][160] "
59455 print" [151]B u BB i BB o BB p B"
59456 print" JCCCKJCCCKJCCCKJCCCK"
59457 print" UCCCIUCCCIUCCCIUCCCIUCCCI [152] "
59458 print" [151]B [155]0 [151]BB [155]4 [151]BB [155]5 [151]BB [155]6 [151]BB[155]del[151]B[152] "
59459 print" [151]B h BB j BB k BB l BB : B"
59460 print" JCCCKJCCCKJCCCKJCCCKJCCCK"
59461 print" UCCCIUCCCIUCCCIUCCCI"
59462 print" B [155]1 [151]BB [155]2 [151]BB [155]3 [151]BB[155]ret[151]B"
59463 print" B m BB ,[160]BB . BB / B"
59464 print" JCCCKJCCCKJCCCKJCCCK"
59465 print" UCCCCCCCCCCCCCCCCCCI"
59466 print" B [155], coma , [151]B"
59467 print" B space bar B"
59468 print" JCCCCCCCCCCCCCCCCCCK"
59469 print" type 60027 return to remove last":poke198,0
59470 print" line after data"
60000 input"[153] startzeile ";sl:input" endzeile ";el:nl=sl
60001 ifsl>60000orel>60002orel<slorsl<0orel<0thengosub60024:goto60000
60002 input" zeilenabstand ";in:ifin>elthengosub60024:goto60002
60003 print"[147]"nl;"data ";:i$=""
60004 geta$:ifa$=""thenprint"[175] [157][157]";:goto60004
60005 av=-(a$="m")-2*(a$=",")-3*(a$=".")-4*(a$="j")-5*(a$="k")-6*(a$="l")
60006 av=av-7*(a$="u")-8*(a$="i")-9*(a$="o"):ifa$="h"then a$="0"
60007 ifa$="p"then a$="-"
60008 ifa$=chr$(32)then a$=","
60009 ifa$=":"thena$=chr$(20)
60010 ifa$="/"thena$=chr$(13)
60011 if(a$>chr$(13)anda$<chr$(20))or(a$>chr$(20)anda$<",")thengosub60024:goto60004
60012 ifav>0then a$=chr$(48+av)
60013 if(a$>"9"anda$<"a")or(a$>"g"anda$<chr$(148))thengosub60024:goto60004
60014 iflen(i$)>70anda$<>chr$(13)anda$<>chr$(20)then60004
60015 ifa$=chr$(20) andlen(i$)=0then60004
60016 printa$;:ifa$=chr$(20)theni$=left$(i$,len(i$)-1):goto60004
60017 ifa$=chr$(13)then60020
60018 i$=i$+a$:goto60004
60019 rem use keyword abreveations for all keywords in the remaining lines
60020 print"nl=";nl;":in=";in;":el=";el:print"goto60022":poke631,19:poke632,17:poke633,17
60021 poke634,13:poke635,13:poke636,145:poke637,145:poke638,13:poke198,8:end
60022 nl=nl+in:ifnl>elthena=peek(43)+256*peek(44):goto60026
60023 goto60003
60024 poke54296,15:poke54277,45:poke54278,165:poke54276,33:poke54273,6
60025 poke54272,5:fort=1to200:next:poke54276,32:poke54273,0:poke54272,0:return
60026 deffndeek(a)=peek(a)+256*peek(a+1):iffndeek(a+2)<50000thena=fndeek(a):goto60026
60027 n=fndeek(a+2):print"[147]"n:print"a="a":g[207]60026":poke631,19:poke632,13:poke633,13:poke198,3